home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 21 / 64er_Magazin_Sonderheft_21_19xx_Markt__Technik_de_Side_B.d64 / mprg im basic (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  51 lines
  1. 10 gosub540:print" es werden programme in maschinensprache mit bis zu";
  2. 20 print" 249 bytes in basic-zeilen    verpackt und automatisch auf diskette ";
  3. 30 print"  gespeichert.",,," ihr start liegt jeweils bei [129]sys2054[154].  "
  4. 40 print" bitte [159]shift[154] druecken.":wait653,1
  5. 100 gosub540:print,"maximal 249 zeichen"spc(22)"start mit sys2054":open2,8,15
  6. 110 print" ist das prg auf diskette (j/n)?":gosub500:ifa$="n"then520
  7. 120 input" name des programms";na$:open1,8,8,na$+",p,r":gosub560
  8. 130 ifa=62thenpoke198,0:wait198,1:gosub590:gosub590:close1:goto120
  9. 140 print:print:ifright$(na$,1)="*"thena=len(na$)-1:na$=left$(na$,a)
  10. 150 input"[145] basic-zeilennummer    [157][157][157][157]";zn$:ifasc(zn$)>57orasc(zn$)<48then150
  11. 160 zn=val(zn$):ifzn<100then180
  12. 170 print"[145] nicht groesser als 99![154]            ":poke198,0:wait198,1:goto150
  13. 180 sv$=left$((zn$+" "+na$),16)
  14. 190 n1=2054:n2=2302:poke2049,0:poke2050,9:poke2051,zn:poke2053,143
  15. 200 get#1,a$:get#1,a$:print"[159] loading "na$"[154]"
  16. 210 fori=n1ton2:get#1,a$:a=asc(a$+chr$(0)):pokei,a:ifa=0theni=i-1:goto240
  17. 220 ifstthen240
  18. 230 next:print" programm zu lang![154]":poke198,0:wait198,1:a$="j":goto410
  19. 240 bz=i:close1:print" speichern auf diskette ",," als[159] "sv$"[154] (j/n)?"
  20. 260 gosub500:print:ifa$="j"thenprint"":goto290
  21. 270 poke19,64:input" neuer programmname: ";a$:poke19,0:sv$=left$(a$,16):print"
  22. 290 [153]" diskette eingelegen und openshiftcont.":[146]653,1:[141]590
  23. 300 sw$[178]sv$[170][199](34)[170]",8:"[170][199](143)
  24. 310 nv[178][195](sw$):[129]i[178]1[164]nv:[151]3371[170]i,[198]([202](sw$,i,1)):[130]
  25. 320 a[178]bz[170]2:[151]2049,a[175]255:[151]2050,a[173]256:[151]251,(a[170]2)[175]255:[151]252,(a[170]2)[173]256
  26. 330 [151]a[171]1,0:[151]a,0:[151]a[170]1,0:[151]45,[194](251):[151]46,[194](252)
  27. 340 [148]"************************
  28. 350 poke45,186:poke46,16:poke2049,0:poke2050,9:poke2304,67:poke2305,9:gosub560
  29. 360 ona+1goto390:ifa=33thenpoke198,0:wait198,1:poke198,0:goto385
  30. 370 print" [129]ueberschreiben?[154] (j/n)[154]":gosub500:ifa$="n"then385
  31. 380 sw$="@0:"+sw$:gosub590:goto310
  32. 385 gosub590:print"[145][145][145]":goto270
  33. 390 gosub590:print" nochmal speichern (j/n)?":gosub500:ifa$="j"then290
  34. 400 print"[159] weitermachen (j/n)?[154]":gosub500
  35. 410 gosub540:fori=n1ton2:pokei,42:next:fori=1to24:poke3371+i,42:next
  36. 420 poke2051,10:poke2375,143
  37. 430 close1:close2:poke198,0:ifa$="j"thenrun
  38. 440 print" die neue zeile laden? (j/n)":gosub500:ifa$="n"thenend
  39. 450 poke631,147:poke632,76:poke633,207:poke634,83:poke635,86:poke636,36
  40. 460 poke637,44:poke638,56:poke639,13:poke198,9:end
  41. 500 geta$:ifa$="j"ora$="n"thengosub590:return
  42. 510 goto500
  43. 520 print"[147] das maschinenprogramm bitte",," erst auf diskette bringen![154]"
  44. 530 close2:end
  45. 540 printchr$(142);"[147][159]   basic-zeile mit maschinenprogramm[154]"
  46. 550 printtab(7)"(c) 1986 by axel hohlfeld":return
  47. 560 input#2,a,a$:print"[129] status: "a$"[154]"
  48. 570 ifa=0ora=33ora=62ora=63thenreturn
  49. 580 poke198,0:wait198,1:a$="j":goto410
  50. 590 print"[145]                                     [145]":return
  51.